60-1
data-item*
level-number* Dat-1 [data-clause*] ... .
level-number*
1-9, 01-49, 66, 77, 88,
data-clause*
[pic-clause*] [usage-clause*] [other-clause*]
pic-clause* - data category 02-1
x
position for a character from the alphanumeric character set
9
position for a decimal digit
a
any character from the alphanumeric character set
n
a character from the national character set
1
position for a boolean character
pic-clause* - sign and decimal point
s
indicates the presence of an operational sign
v
indicates the position of the assumed decimal point
pic-clause* - floating editing
z
for inserting leading spaces replacing all leading zeroes
*
for character asterisk replacing all leading zeroes
for inserting character plus replacing last leading zero
-
for inserting character minus replacing last leading zero
pic-clause* - fix editing
b
blank - the character space will be inserted
0
the character zero will be inserted
the editing sign control character plus will be inserted
-
the editing sign control character minus will be inserted
.
the character period will be inserted
,
the character comma will be inserted
/
the character slant will be inserted
pic-clause* - floating point
e
is used to separate the significant and the exponent
Remarks:
for other details see links above
|